home *** CD-ROM | disk | FTP | other *** search
Wrap
; $VER: ClassAction V3.6 Installer ; Script to install Release 3.6 of ClassAction (complete 0) (set #Abort (cat "NEIN" )) (set #Overwrite (cat "JA" )) (set #conf (cat "\n\nMöchtest du die Standardkonfigurationsdateien auf deinem\n" "System installieren, wenn dies deine erste Installation ist,\n" "würde ich es dir vorschlagen." )) (set #conf-help (cat "\n\nDer Installer muß wissen, ob die\n" "Standardkonfigurationsdateien installiert werden sollen.\n\n" "Wenn du bereits eine Konfigurationsdatei hast,\n" "dann wähle NEIN,\n" "um deine Konfiguration zu erhalten." )) ;******************************************************************** (set #warn-kickstart-text (cat "\n ClassAction 3.6 ist MailWare !!\n\n" " Man kann es frei im Netz registrieren.\n\n" " Diese Version nutzt dieselben Kataloge, wie die 3.5.\n" " Die im Netz erhältlichen Kataloge der 3.5\n" " sind mit dieser Version (3.6) noch gut nutzbar.\n\n" " Versuch' mal die Tasten +,-,*,/ und Enter auf dem Nummernfeld.\n" " VERGIß NICHT, DICH IN DER DOKUMENTATION ÜBER DIE NEUEN TOOLTYPES ZU INFORMIEREN." "\n ClassAction 3.6 benötigt MUI 3.0+.\n\n" )) ;********************************************************************* (set #CAS-query-text (cat "Wo soll CAStart installiert\nwerden ?" )) (set #CAS-query-help (cat "\n\nWähle jetzt ein Verzeichnis, in welchem\n" "CAStart installiert werden soll.\n\n" "Klicke es mit der Maus an und" " wähle Weiter\n\n" "CAStart ist ein kleines Programm, welches man als\n" "Standardprojekt für Piktogramme verwenden kann." )) ;********************************************************************* (set #DOC-query-text (cat "Wo soll die Dokumentation\ninstalliert werden ?" )) (set #DOC-query-help (cat "\n\nDu sollst jetzt ein Verzeichnis wählen, in dem\n" "du die Guide-Datei installieren möchtest\n\n" "Klicke es mit der Maus an" " und wähle Weiter" )) ;**************************************** (set #CA-query-text (cat "Wo soll das ClassAction\nHauptprogramm installiert\nwerden" )) (set #CA-query-help (cat "\n\nDu sollst jetzt ein Verzeichnis wählen, in dem\n" "du die Hauptprogrammdatei installieren möchtest\n\n" "Klicke es mit der Maus an" " und wähle Weiter" )) ;**************************************** (set #CAP-query-text (cat "Wo soll ClassActionPrefs\ninstalliert werden ?" )) (set #CAP-query-help (cat "\n\nDu sollst jetzt ein Verzeichnis wählen, in dem\n" "du die Datei des Einstellungsprogramms installieren möchtest\n\n" "Klicke es mit der Maus an" " und wähle Weiter\n" "Du kannst SYS:Prefs wählen, wenn du nicht weißt,\n" "wo sonst..." )) (set #ver-help (cat "\n\nFalls du eine ältere Version erneuerst\n" "werden die Piktogramme von ClassAction\n\n" "nicht kopiert, um zu vermeiden, daß\n" "deine Tooltypes gelöscht werden\n" )) ;******************************************************************** (set #goodbye (cat "\nClassAction ist nun installiert." )) ;******************************************************************** (set ver (/ (getversion) 65536) ) (set warning (#warn-kickstart-text ver) ) (message warning) (set cpu (askchoice (prompt "Welche CPU Version möchtest du installieren") (choices "68000" "68020 oder höher") (help "Wähle deinen Prozessor"))) (if (= 0 cpu) ( (rename "ClassAction.00" "ClassAction") (rename "ClassActionPrefs.00" "ClassActionPrefs") )) (if (= 1 cpu) ( (rename "ClassAction.20" "ClassAction") (rename "ClassActionPrefs.20" "ClassActionPrefs") )) (set thedir (askdir (prompt #CA-query-text) (help #CA-query-help) (default "SYS:WbStartup"))) (makeassign "CAHOME" thedir) (if(exists("CAHOME:ClassAction")) ( (message "\nDu erneuerst eine ältere Version von ClassAction\n\nVergiß nicht, das Guide zu lesen,\nüber die neuen Tooltypes\nund ALLE neuen Eigenschaften der Version 3.6.") (copyfiles (source "ClassAction") (dest thedir)) (run "utt CAHOME:ClassAction ClassAction CAHOME:ClassAction") ) (copyfiles (source "ClassAction") (dest thedir) (infos)) ) (complete 25) (set thedir (askdir (prompt #CAP-query-text) (help #CAP-query-help) (default "SYS:Prefs"))) (copyfiles (source "ClassActionPrefs") (dest thedir) (infos) ) (complete 50) (set thedir (askdir (prompt #DOC-query-text) (help #DOC-query-help) (default "HELP:"))) (copyfiles (source "Deutsch/ClassAction.guide") (dest thedir) (infos) ) (complete 75) (set thedir (askdir (prompt #CAS-query-text) (help #CAS-query-help) (default "C:"))) (copyfiles (source "CAStart") (dest thedir) (infos) ) (complete 85) (makedir ("ENVARC:ClassAction")) (if(exists("ENVARC:ClassAction.prefs")) ( (copyfiles (source "ENVARC:ClassAction.prefs") (dest "ENVARC:ClassAction")) (delete ("ENVARC:ClassAction.prefs")) )) (if(exists("ENVARC:ClassAction_Gen.prefs")) ( (copyfiles (source "ENVARC:ClassAction_Gen.prefs") (dest "ENVARC:ClassAction")) (delete ("ENVARC:ClassAction_Gen.prefs")) )) (if(askbool (prompt #conf) (help #conf-help) ) ( (copyfiles (source "Deutsch/ClassAction.prefs") (dest "ENVARC:ClassAction")) (copyfiles (source "Deutsch/ClassAction_Gen.prefs") (dest "ENVARC:ClassAction")) (copyfiles (source "Deutsch/ClassAction_Dir.prefs") (dest "ENVARC:ClassAction")) )) (copyfiles (source "Deutsch/ClassAction.catalog") (dest "locale:catalogs/deutsch")) (copyfiles (source "Deutsch/ClassActionPrefs.catalog") (dest "locale:catalogs/deutsch")) (complete 100) (message #goodbye) (exit (quiet))